home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / dsp / dspgroup / bell212.arc / DTMFTBL1.BAS < prev    next >
Encoding:
BASIC Source File  |  1986-07-25  |  896 b   |  32 lines
  1. 2 '************************************************************
  2. 3 '*****  GENERATE DTMF TONE TABLE PROGRAM                *****
  3. 4 '*****  WRITTEN BY PETER EHLIG                          *****
  4. 5 '*****  COPYRIGHT TEXAS INSTRUMENTS,  07/25/86          *****
  5. 6 '************************************************************
  6. 10 DIM T(20),P(20)
  7. 20 INPUT "SAMPLE RATE? = ",SAMP
  8. 30 INPUT "SINE TABLE LENGTH = ",STBL
  9. 40 CLS
  10. 50 C = STBL * 16 / SAMP
  11. 60 T(1) = 1336
  12. 70 T(2) = 1209
  13. 80 T(3) = 1477
  14. 90 T(4) = 941
  15. 100 T(5) = 697
  16. 110 T(6) = 770
  17. 120 T(7) = 853
  18. 122 T(8) = 1070
  19. 124 T(9) = 1270
  20. 126 T(10) = 2025
  21. 128 T(11) = 2225
  22. 130 PRINT "SAMPLE RATE = ",SAMP,"SINE TABLE LENGTH = ",STBL
  23. 140 FOR I = 1 TO 11
  24. 150 P(I) = CINT(T(I) * C)
  25. 160 V$ = HEX$(P(I))
  26. 170 PRINT T(I),P(I),">",V$
  27. 180 NEXT
  28. LE LENGTH = ",STBL
  29. 140 FOR I = 1 TO 11
  30. 150 P(I) = CINT(T(I) * C)
  31. 160 V$ = HEX$(P(I))
  32. 170 PRIN